perm filename ORDERF[2,DBL] blob sn#011040 filedate 1972-12-17 generic text, type T, neo UTF8
00100	(DE ORDERP  (X Y)
00200	     (*LESS (EXAMINE (MAKNUM (CAR (GET X @PNAME)) @FIXNUM))
00300	           (EXAMINE (MAKNUM (CAR (GET Y @PNAME)) @FIXNUM))))
00400	(DE ALTER(E)
00500	     (READLIST(CDREPLACE(EXPLODE E]